(define-derived-mode): Properly ignore unknown args.

diff --git a/lisp/derived.el b/lisp/derived.el
index d11a58a19d5ebc66b92b235cf88223d6a1fe5aa4..0cb2fd2d57f7a70fb435a7a6e6ab1c6da35544dc 100644 (file)
--- a/lisp/derived.el
+++ b/lisp/derived.el
@@ -178,8 +178,8 @@ been generated automatically, with a reference to the keymap."
       (case (pop body)
        (:group (setq group (pop body)))
        (:abbrev-table (setq abbrev (pop body)) (setq declare-abbrev nil))
-       (:syntax-table (setq syntax (pop body)) (setq declare-syntax nil))))
-
+       (:syntax-table (setq syntax (pop body)) (setq declare-syntax nil))
+       (t (pop body))))
 
     (setq docstring (derived-mode-make-docstring
                     parent child docstring syntax abbrev))